﻿#VisualFreeBasic_Form#  Version=5.9.1
Locked=0

[Form]
Name=Form3
ClassStyle=CS_VREDRAW,CS_HREDRAW,CS_DBLCLKS
ClassName=
WinStyle=WS_THICKFRAME,WS_CAPTION,WS_SYSMENU,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_VISIBLE,WS_EX_WINDOWEDGE,WS_EX_CONTROLPARENT,WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_POPUP,WS_SIZEBOX
Style=3 - 常规窗口
Icon=
Caption=直接关键词替换列表
StartPosition=2 - 父窗口中心
WindowState=0 - 正常
Enabled=True
Repeat=False
Left=0
Top=0
Width=458
Height=419
TopMost=False
Child=False
MdiChild=False
TitleBar=True
SizeBox=True
SysMenu=True
MaximizeBox=True
MinimizeBox=True
Help=False
Hscroll=False
Vscroll=False
MinWidth=300
MinHeight=200
MaxWidth=0
MaxHeight=0
NoActivate=False
MousePass=False
TransPer=0
TransColor=SYS,25
Shadow=0 - 无阴影
BackColor=SYS,15
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False
AcceptFiles=False

[Timer]
Name=Timer1
Index=-1
Interval=3000
Enabled=False
Left=115
Top=405
Tag=

[Scintilla]
Name=Scintilla1
Explain=
Help=
Index=-1
Style=1 - 细边框
Enabled=True
Visible=True
Left=5
Top=29
Width=435
Height=350
Layout=0 - 不锚定
Tag=
Tab=True

[Button]
Name=Command1
Index=-1
Caption=保存
TextAlign=1 - 居中
Ico=
Enabled=True
Visible=True
Default=False
OwnDraw=False
MultiLine=False
Font=微软雅黑,9,0
Left=395
Top=3
Width=45
Height=25
Layout=2 - 跟随右边
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False

[Label]
Name=Label1
Index=-1
Style=0 - 无边框
Caption=不替换 引号中的 注解中的，关键词必须完全匹配才会替换
Enabled=True
Visible=True
ForeColor=SYS,8
BackColor=SYS,25
Font=微软雅黑,9,0
FontWidth=0
FontAngle=0
TextAlign=0 - 左对齐
Prefix=True
Ellipsis=False
Left=5
Top=5
Width=355
Height=15
Layout=0 - 不锚定
MousePointer=0 - 默认
Tag=
ToolTip=
ToolTipBalloon=False


[AllCode]
'这是标准的工程模版，你也可做自己的模版。
'写好工程，复制全部文件到VFB软件文件夹里【template】里即可，子文件夹名为 VFB新建工程里显示的名称
'快去打造属于你自己的工程模版吧。

'[Form3]事件 : 窗口完全显示后。
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'UserData  来自显示窗口最后1个参数，例： Form2.Show(父窗口句柄,模式,UserData)
Sub Form3_Shown(hWndForm As hWnd, UserData As Integer)
   设置代码编辑器 Scintilla1.pSci
   Dim ss As String = GetFileStrUtf8(App.Path & "直接替换列表关键词.txt")
   Scintilla1.Text = ss  
 
End Sub

'[Form3.Command1]事件 : 单击
'hWndForm    当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'hWndControl 当前控件的句柄(也是窗口句柄，如果多开本窗口，必须 Me.控件名.hWndForm = hWndForm 后才可以执行后续操作本控件的代码 )
Sub Form3_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
   Command1.Enabled = False
   Dim ss As String = Scintilla1.Text
   SaveFileStrUtf8(App.Path & "直接替换列表关键词.txt", ss)
   
   加载直接替换列表()
   
   
   Timer1.Enabled = True
End Sub

'[Form3.Timer1]事件 : 定时器
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
''         本控件为功能控件，就是无窗口，无显示，只有功能。如果多开本窗口，必须 Me.控件名.hWndForm = hWndForm 后才可以执行后续操作本控件的代码 
'wTimerID  定时器ID，区分不同定时器的编号
Sub Form3_Timer1_WM_Timer(hWndForm As hWnd, wTimerID As Long)
   Timer1.Enabled   = False
   Command1.Enabled = True
End Sub

'[Form3]事件 : 窗口已经改变了大小
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'fwSizeType = SIZE_MAXHIDE     SIZE_MAXIMIZED   SIZE_MAXSHOW    SIZE_MINIMIZED    SIZE_RESTORED  
''            其他窗口最大化   窗口已最大化     其他窗口恢复    窗口已最小化      窗口已调整大小
'nWidth nHeight  是客户区大小，不是全部窗口大小。
Sub Form3_WM_Size(hWndForm As hWnd, fwSizeType As Long, nWidth As Long, nHeight As Long)
   if fwSizeType = SIZE_MINIMIZED Then Return
   'xxx.Move DpiScaleI(5), DpiScaleI(5), nWidth - DpiScaleI(10), nHeight - DpiScaleI(30)
   Scintilla1.Move DpiScaleI(5), DpiScaleI(30), nWidth  - DpiScaleI(10), nHeight - DpiScaleI(35)

   
End Sub





